This module defines an abstract class to represent an abstract function to calculate distance
Template for the calculate function Import section
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(distance_base) | :: | distance | 
                 A   | 
        |||
| real(kind=wp), | intent(inout), | dimension(:,:) | :: | vector1 | 
                 A real vector  | 
        |
| real(kind=wp), | intent(inout), | dimension(:,:) | :: | vector2 | 
                 A real vector  | 
        
A real variable with the distance
Abstract class distance_base
| procedure(distance_function1), public, deferred :: calculate |